inherited sprDirectory: TsprDirectory
  Caption = #1053#1072#1089#1090#1088#1086#1077#1095#1085#1099#1077' '#1082#1086#1085#1089#1090#1072#1085#1090#1099
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 62
    Height = 492
    inherited PageControl1: TPageControl
      Height = 492
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 464
          Caption = ' '#1050#1086#1085#1089#1090#1072#1085#1090#1099' '
          inherited dbgRefer: TDBGridEh
            Height = 447
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind, dghColumnResize, dghColumnMove]
            ParentFont = False
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
                HighlightRequired = True
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
                HighlightRequired = True
                Width = 163
              end
              item
                EditButtons = <>
                FieldName = 'CLASS'
                Footers = <>
                HighlightRequired = True
              end
              item
                EditButtons = <>
                FieldName = 'CLASSNAME'
                Footers = <>
                HighlightRequired = True
                Width = 168
              end
              item
                EditButtons = <>
                FieldName = 'DIR_VAL'
                Footers = <>
                HighlightRequired = True
                Width = 90
              end
              item
                EditButtons = <>
                FieldName = 'FLOAT_VAL'
                Footers = <>
                HighlightRequired = True
              end
              item
                EditButtons = <>
                FieldName = 'CREATOR'
                Footers = <>
                HighlightRequired = True
                Width = 60
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Footers = <>
                HighlightRequired = True
                Width = 52
              end
              item
                EditButtons = <>
                FieldName = 'MODIFIER'
                Footers = <>
                HighlightRequired = True
                Width = 45
              end
              item
                EditButtons = <>
                FieldName = 'MODIFYDATE'
                Footers = <>
                HighlightRequired = True
                Width = 54
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Height = 341
          object Label1: TLabel [0]
            Left = 79
            Top = 14
            Width = 17
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1044
          end
          object Label2: TLabel [1]
            Left = 38
            Top = 54
            Width = 58
            Height = 13
            Alignment = taRightJustify
            Caption = #1050#1086#1076' '#1082#1083#1072#1089#1089#1072
          end
          object Label3: TLabel [2]
            Left = 46
            Top = 34
            Width = 50
            Height = 13
            Alignment = taRightJustify
            Caption = #1053#1072#1079#1074#1072#1085#1080#1077
          end
          object Label4: TLabel [3]
            Left = 65
            Top = 74
            Width = 31
            Height = 13
            Alignment = taRightJustify
            Caption = #1050#1083#1072#1089#1089
          end
          object Label5: TLabel [4]
            Left = 18
            Top = 94
            Width = 78
            Height = 13
            Alignment = taRightJustify
            Caption = #1062#1077#1083#1086#1095#1080#1089#1083'.'#1079#1085#1072#1095'.'
          end
          object Label6: TLabel [5]
            Left = 13
            Top = 114
            Width = 83
            Height = 13
            Hint = #1082#1086#1076' '#1076#1083#1103' '#1074#1085#1077#1096#1085#1080#1093' '#1082#1083#1102#1095#1077#1081
            Alignment = taRightJustify
            Caption = #1044#1088#1086#1073#1085'.'#1079#1085#1072#1095#1077#1085#1080#1077
          end
          inherited pnlButtons: TPanel
            TabOrder = 6
            inherited SpeedButton1: TSpeedButton
              Top = 312
            end
            inherited SpeedButton2: TSpeedButton
              Top = 312
            end
          end
          object DBEditEh1: TDBEditEh
            Left = 104
            Top = 12
            Width = 57
            Height = 19
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'ID'
            DataSource = dscRefer
            EditButtons = <>
            Enabled = False
            Flat = True
            ReadOnly = True
            TabOrder = 0
            Visible = True
          end
          object DBEditEh5: TDBEditEh
            Left = 104
            Top = 92
            Width = 93
            Height = 19
            AlwaysShowBorder = True
            DataField = 'DIR_VAL'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 2
            Visible = True
            OnChange = DBEditEhChange
          end
          object DBEditEh6: TDBEditEh
            Left = 104
            Top = 112
            Width = 93
            Height = 19
            AlwaysShowBorder = True
            DataField = 'FLOAT_VAL'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 3
            Visible = True
            OnChange = DBEditEhChange
          end
          object DBEditEh3: TDBEditEh
            Left = 104
            Top = 32
            Width = 217
            Height = 19
            AlwaysShowBorder = True
            DataField = 'NAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 1
            Visible = True
            OnChange = DBEditEhChange
          end
          object dbeCLASS: TDBEditEh
            Left = 104
            Top = 52
            Width = 217
            Height = 19
            AlwaysShowBorder = True
            DataField = 'CLASS'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 4
            Visible = True
            OnChange = DBEditEhChange
          end
          object DBEditEh2: TDBEditEh
            Left = 104
            Top = 72
            Width = 217
            Height = 19
            AlwaysShowBorder = True
            DataField = 'CLASSNAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 5
            Visible = True
            OnChange = DBEditEhChange
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Height = 37
    object Label11: TLabel
      Left = 46
      Top = 15
      Width = 31
      Height = 13
      Alignment = taRightJustify
      Caption = #1050#1083#1072#1089#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object dblClass: TDBLookupComboboxEh
      Left = 84
      Top = 12
      Width = 309
      Height = 19
      AlwaysShowBorder = True
      DropDownBox.AutoDrop = True
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      KeyField = 'CLASS'
      ListField = 'CLASSNAME'
      ListSource = dscCategories
      ParentFont = False
      TabOrder = 0
      Visible = True
      OnChange = eNameSearchChange
    end
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE DIRECTORY'
      'SET '
      '    CLASS = :CLASS,'
      '    NAME = :NAME,'
      '    DIR_VAL = :DIR_VAL,'
      '    CLASSNAME = :CLASSNAME,'
      '    FLOAT_VAL = :FLOAT_VAL'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    DIRECTORY'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO DIRECTORY('
      '    CLASS,'
      '    NAME,'
      '    DIR_VAL,'
      '    CLASSNAME,'
      '    FLOAT_VAL'
      ')'
      'VALUES('
      '    :CLASS,'
      '    :NAME,'
      '    :DIR_VAL,'
      '    :CLASSNAME,'
      '    :FLOAT_VAL'
      ')')
    RefreshSQL.Strings = (
      'select '
      'd.*, u1.surname as creator, u2.surname as modifier '
      'from directory d'
      ' left join username u1 on u1.id = d.createuserid'
      ' left join username u2 on u2.id = d.modifyuserid'
      'where(  1 =1'
      '     ) and (     D.ID = :OLD_ID'
      '     )'
      '    '
      '')
    SelectSQL.Strings = (
      'select '
      'd.*, u1.surname as creator, u2.surname as modifier '
      'from directory d'
      ' left join username u1 on u1.id = d.createuserid'
      ' left join username u2 on u2.id = d.modifyuserid'
      'where 1 =1'
      '')
    object dsReferID: TFIBIntegerField
      FieldName = 'ID'
      Visible = False
    end
    object dsReferCLASS: TFIBStringField
      DisplayLabel = #1050#1086#1076' '#1082#1083#1072#1089#1089#1072
      FieldName = 'CLASS'
      EmptyStrToNull = True
    end
    object dsReferNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'NAME'
      Size = 255
      EmptyStrToNull = True
    end
    object dsReferDIR_VAL: TFIBIntegerField
      DisplayLabel = #1062#1077#1083#1086#1095#1080#1089#1083'. '#1079#1085#1072#1095'.'
      FieldName = 'DIR_VAL'
    end
    object dsReferCLASSNAME: TFIBStringField
      DisplayLabel = #1050#1083#1072#1089#1089
      FieldName = 'CLASSNAME'
      Size = 255
      EmptyStrToNull = True
    end
    object dsReferFLOAT_VAL: TFIBFloatField
      DisplayLabel = #1044#1088#1086#1073#1085'. '#1079#1085#1072#1095#1077#1085#1080#1077
      FieldName = 'FLOAT_VAL'
    end
    object dsReferCREATEDATE: TFIBDateField
      DisplayLabel = #1057#1086#1079#1076#1072#1085#1086
      FieldName = 'CREATEDATE'
    end
    object dsReferMODIFYDATE: TFIBDateField
      DisplayLabel = #1048#1079#1084#1077#1085#1077#1085#1086
      FieldName = 'MODIFYDATE'
    end
    object dsReferCREATOR: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1083
      FieldName = 'CREATOR'
      Size = 35
      EmptyStrToNull = True
    end
    object dsReferMODIFIER: TFIBStringField
      DisplayLabel = #1048#1079#1084#1077#1085#1080#1083
      FieldName = 'MODIFIER'
      Size = 35
      EmptyStrToNull = True
    end
  end
  inherited Timer1: TTimer
    Left = 540
    Top = 165
  end
  object dsCategories: TpFIBDataSet [8]
    SelectSQL.Strings = (
      'select distinct d.class, d.classname'
      'from directory d'
      'order by 2')
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    Left = 476
    Top = 165
    object dsCategoriesCLASS: TFIBStringField
      FieldName = 'CLASS'
      EmptyStrToNull = True
    end
    object dsCategoriesCLASSNAME: TFIBStringField
      FieldName = 'CLASSNAME'
      Size = 255
      EmptyStrToNull = True
    end
  end
  inherited trLists: TpFIBTransaction
    Top = 217
  end
  object dscCategories: TDataSource [11]
    DataSet = dsCategories
    Left = 476
    Top = 218
  end
  inherited PropStorage: TPropStorageEh
    Section = 'sprDirectory'
  end
end
